home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo: Applications / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuickMail / Installer Resources / Scripts / SprintMail.SprintNet.v2.02 < prev   
Encoding:
Text File  |  1992-03-19  |  3.6 KB  |  177 lines  |  [TEXT/ttxt]
  1. * SPRINTMAIL Script, for QuickMail™
  2. * © 1988-92 CE Software, Inc.
  3. *
  4. * Title: SprintMail.SPRINTNET.v2.03
  5. * Version: 2.03
  6. * Modification Date: 3/13/92
  7. * 
  8. * NOTE: The filename of this script does not accurately reflect the version
  9. * number of the script.  It was not updated due to the complications it would cause
  10. * in the QuickMail v2.5.1 update process.  This problem will be corrected in a future 
  11. * version of QuickMail.
  12. * 
  13. * Modification History:
  14. * • 2.01 - 4/11/89: Formating and Name Changes.  Tested OK.
  15. * • 2.02b- 3/21/90: Added XMODEM file transfer - Dave Reed.
  16. * • 2.02 - 5/3/90: Name changes.  Tested OK.
  17. * • 2.03 - 3/13/92: Added support for 7,1,EVEN and XON/XOFF
  18. * This will help on large text transfers.
  19. * To properly configure the Sprint Mail MailCenter, your 
  20. * connection settings should be: 
  21. * 8 DataBits, 1 Stop Bit, No Parity, Handshake:None
  22. * File Transfer: XMODEM, MacBinary, CRC-16
  23. * The service itself is 7,1,EVEN XON/XOFF. 
  24. * The current XMODEM Tool only supports 8, 1 & None for File Transfers.
  25. * 
  26. * This is a simple script for logging onto US Sprint's mail system
  27. * It assumes that you are calling directly into SPRINTMAIL
  28. *
  29. * THIS SCRIPT ONLY WORKS WHEN CALLING IN THROUGH SPRINTNET
  30. *
  31. *
  32. * This is called to log us into SPRINTNET and then into 
  33. * SPRINTMAIL.
  34. *
  35. :IN
  36. COMM DataBits 7 Parity Even StopBits 1 Handshake Xon/Xoff
  37. OOPS 180,FAILURE
  38. ALERT 1,FAILURE,NO CARRIER
  39. ALERT 2,FAILURE,DISCONNECTED
  40. ALERT 3,FAILURE,REJECTING
  41. ALERT 4,FAILURE,OPERATING
  42. ALERT 5,FAILURE,ERROR
  43. ALERT 6,FAILURE,REACHABLE
  44. ALERT 7,FAILURE,MAIL BUSY
  45. *
  46. * remove the following line for a 1200 baud connection
  47. TYPE @
  48. *
  49. * remove the comment * for on the following line for 1200 baud connection
  50. *TYPE ^M
  51. PAUSE 1
  52. TYPE ^M
  53. WAIT TERMINAL=
  54. TYPE D1^M
  55. WAIT @
  56. TYPE MAIL^M
  57. WAIT User name?
  58. TYPE «LOGID»^M
  59. WAIT Password?
  60. TYPE «PASSWORD»^M
  61. WAIT COMMAND?
  62. ALERT 3,,
  63. ALERT 4,,
  64. ALERT 5,,
  65. ALERT 6,,
  66. ALERT 7,,
  67. SUCCESS
  68. *
  69. * This logs us off SPRINTMAIL
  70. *
  71. :BYE
  72. TYPE Bye^M
  73. ALERT 6,SUCCESS,NO CARRIER
  74. ALERT 7,B2,ACTION?
  75. ALERT 8,B3,WORKSPACE?
  76. :B1
  77. PAUSE 5
  78. SUCCESS
  79. :B2
  80. TYPE ^M
  81. GOTO B1
  82. :B3
  83. TYPE Y^M
  84. GOTO B1
  85. *
  86. * This is called to send one piece of mail
  87. *
  88. :SEND
  89. OOPS 180,FAILURE
  90. TYPE Compose^M
  91. WAIT TO:
  92. TYPE «ADDRESS»^M
  93. WAIT CC:
  94. TYPE ^M
  95. WAIT SUBJECT:
  96. TYPE «TOPIC»^M
  97. WAIT TEXT:
  98. TYPE Attn: «NAME»^M
  99. DUMP ^J
  100. TYPE .^M
  101. ALERT 7,S1,EXIST:
  102. WAIT SEND?
  103. TYPE Y^M
  104. :S0
  105. ALERT 7,S1,EXIST:
  106. WAIT COMMAND?
  107. SUCCESS
  108. :S1
  109. TYPE O^M
  110. ERRORINADDRESS
  111. GOTO S0
  112. *
  113. * This routine sends a binary file if there is more than one file it will 
  114. * be packed together as a "Packit One" file.
  115. *
  116. :XSEND
  117. COMM DataBits 8 Parity None StopBits 1 Handshake None
  118. OOPS 180,FAILURE
  119. ALERT 1,FAILURE,Invalid file name
  120. ALERT 2,FAILURE,Invalid UPLOAD
  121. ALERT 3,FAILURE,File Transfer failed:
  122. ALERT 4,FAILURE,Invalid PROTOCOL TYPE
  123. PAUSE 2
  124. TYPE COMPOSE BINARY^M
  125. WAIT TO:
  126. TYPE «ADDRESS»^M
  127. WAIT CC:
  128. TYPE ^M
  129. WAIT Subject:
  130. TYPE «TOPIC»^M
  131. PAUSE 2
  132. TYPE QMAIL.BIN^M
  133. PAUSE 3
  134. XFER UPLOAD,FAILURE
  135. WAIT SEND?
  136. TYPE Y^M
  137. SUCCESS
  138. *
  139. *
  140. * This is called to receive mail.  It is called continually with increasing
  141. * values in «COUNT», until FAILURE occurs.  You can put all reads into one
  142. * listing, if you wish
  143. *
  144. :RECEIVE
  145. COMM DataBits 7 Parity Even StopBits 1 Handshake Xon/Xoff
  146. OOPS 180,FAILURE
  147. ALERT 6,R10,no new mail.
  148. TYPE scan^M
  149. :R0
  150. ALERT 7,R4,more...
  151. WAIT Command?
  152. ALERT 8,R10,Command?
  153. ALERT 11,R11,Use the DOWNLOAD BINARY command to receive it.
  154. ALERT 12,R11,This is a binary file:
  155. TYPE READ^M
  156. :R2
  157. BUFFER Action?
  158. RECEIVE Subj:,To:,From:,,
  159. TYPE ^M
  160. GOTO R2
  161. :R4
  162. TYPE ^M
  163. GOTO R0
  164. :R10
  165. FAILURE
  166. :R11
  167. COMM DataBits 8 Parity None StopBits 1 Handshake None
  168. PAUSE 3
  169. TYPE DOWNLOAD BINARY USING XMODEM.CRC^M
  170. PAUSE 5
  171. XFER DOWNLOAD,R12
  172. MAILFILE Subj:,To:,From:,,
  173. :R12
  174. TYPE ^M
  175. GOTO R2
  176.  
  177.